﻿Imports System.Threading

Module Funções
    Public status_idade As Integer

    Public Sub calc_idade(ByVal data As String)
        Try
            Dim lista As String() = data.Split("/"c)
            Dim mes_nasc As Integer = Convert.ToInt32(lista(1))
            ' Mes
            Dim mes_atual As Integer = Convert.ToInt32(DateTime.Now.Month)
            Dim ano_nasc As Integer = Convert.ToInt32(lista(2))
            ' Ano
            Dim ano_atual As Integer = Convert.ToInt32(DateTime.Now.Year)

            If ano_atual - ano_nasc >= 18 Then
                ' 0 para maior de idade
                status_idade = 0
            ElseIf ano_atual - ano_nasc = 17 AndAlso mes_atual - mes_nasc > 0 Then
                ' 0 para maior de idade
                status_idade = 0
            Else
                ' 1 para menor de idade
                status_idade = 1
            End If
        Catch
        End Try

    End Sub

    Public Sub Animacao(ByVal frm As Form)
        frm.Opacity = 0
        frm.Show()
        Dim cont As Double = 0
        While cont <= 1
            frm.Opacity = cont
            frm.Refresh()
            Thread.Sleep(15)
            cont += 0.1
        End While
    End Sub

End Module
